home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarfcopy.amirx < prev    next >
Text File  |  1999-04-19  |  1KB  |  14 lines
  1. /*
  2. \\ |DWaRFx-TNg| - DWaRFCoPY.AmIRX v1.3
  3. //              - By Gareth Murfin
  4. \\
  5. // Private Nickserv to protect your own nick by kicking the offender.
  6. \\
  7. // To run do /DwCopy
  8. \\        or /Rx Rexx/DWaRFx/DWaRFCoPY.AmIRX
  9. //
  10. \\ With thanks to JadeFalcon aka NiN for supplying the original script.
  11. //                Satan for original code.
  12. \\
  13. */
  14. ;options results;host=address();ADDRESS VALUE host;'getmynick';mynick=upper(result);'getchannel';chan=result;evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());'echo p='d2c(27)'b«DWaRFCoPY» « DWaRFCoPY initiated »';'say DWaRFCoPY innitiated. Similar nick changes are futile.. - 'd2c(2)'|DWaRFx-TNG|'d2c(2);Do Forever;'getline';WAIT(5);'getusers';users=result;COPYCAT(users);End;Exit;COPYCAT:;PARSE ARG users;nicks=words(users);users=Compress(users,'@+');Do I=1 to nicks;usersnick=upper(word(users,i));num=index(word(upper(users),i),mynick);If usersnick~=mynick then;do;If num>0 then;do;'say DWaRFCoPY - Detected Nick Clash. - Taking appropriate action.';'say /deop 'usersnick;'say /kick 'chan' 'usersnick' Destroyed by DWaRFCoPY - 'd2c(2)'|DWaRFx-TNG|'d2c(2);End;End;End;return(0);WAIT:;PARSE ARG tm;Call Time(R);Do Until Time(E)>tm;End;Return(0)